home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).po
/
MOUSE.BUTTON.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
889b
|
20 lines
10 REM PROGRAM MOUSE.BUTTON
20 S1 = 49420:S2 = 49659
30 SL = 1: REM START LOOKING SLOT ONE
40 IF PEEK(S1) = 32 AND PEEK(S2) = 214 THEN 80
50 SL = SL +1: IF SL = 3 THEN S1 = S1 +256:S2 = S2 +256: GOTO 50: REM SKIP SLOT 3
60 IF SL <8 THEN S1 = S1 +256:S2 = S2 +256: GOTO 40
70 PRINT CHR$(7): PRINT "NO MOUSE IN THE COMPUTER": END
80 PRINT CHR$(4)"PR#";SL: REM CALL MOUSE SLOT
90 PRINT CHR$(1): REM TURN ON MOUSE FIRMWARE
100 PRINT CHR$(4)"PR#0": REM RETURN INPUT TO KEYBOARD
110 HOME : PRINT "PRESS ANY KEY TO ACTIVATE THE MOUSE"
120 GET A$
130 PRINT CHR$(4)"IN#";SL
140 INPUT "";X,Y,S
150 IF S <1 THEN PRINT CHR$(4)"IN#0": GOTO 190: REM RETURN TO KEYBOARD
160 VTAB 12: PRINT "THE SWITCH STATUS IS ";S
170 FOR D = 1 TO 200: NEXT : REM DELAY LOOP TO SEE 'S' CHANGE
180 GOTO 140
190 VTAB 15: PRINT "A KEY WAS PRESSED ON THE KEYBAORD"
200 END